Verteidigung-Masterarbeit

# Beispiel-Abbildung erstellen
ggplot(df_spiro_beispiel, aes(x = t_s)) +
  geom_line(aes(y = `V'O2`), color = "#1CADE4", size = 1) +
  geom_line(aes(y = `V'CO2`), color = "#EF5350", size = 1) +
  scale_x_continuous(limits = c(0, max(df_spiro_beispiel$t_s)),breaks = seq(0, max(df_spiro_beispiel$t_s), 100), 
                     expand = c(0, 0)) +
  scale_y_continuous(limits = c(0, 5),breaks = seq(0, 5, 1.0), labels = function(x) sprintf("%.1f", x)) +
  labs(x = "Zeit [s]", y = "V̇O₂ & V̇CO₂ [l · min⁻¹]") +
  theme_minimal()

# Excel-Datensatz laden und darstellen
Stichprobe_df <- read_excel("Probanden_Daten 2.2.xlsm", sheet = "Stichprobe_final", range = "A1:Y10") %>%
  mutate(across(everything(), ~gsub(",", ".", .))) %>%
  mutate(across(-2, as.numeric)) %>%
  mutate(across(c(8, 10, 13, 15, 17, 19, 21, 23), ~round(., 2)))
datatable(Stichprobe_df, options = list(scrollX = TRUE, scrollY = "240px", dom = 't', order = list(list(0, 'asc')), 
                                        initComplete = JS("function(settings, json) {$(this.api().table().container()).css({'font-size': '70%'});}")), rownames = FALSE)